#!/bin/sh
################################################################################\
exec wish "$0" "$@"

#Routine of moving help window. Invokes from help
#proc move_w {dx dy} {
# foreach {w h x y} [split [wm geom .tophelpwindow] "+x"] {
#  wm geom .tophelpwindow "${w}x${h}+[expr {$x + $dx}]+[expr {$y + $dy}]"
# }
#}

set package_dir [file join [file dirname $argv0] "../.."]

wm withdraw .
wm overrideredirect . 1

lappend auto_path $package_dir
package require help 1.4

help::init help/demo.help

tkwait window .tophelpwindow
exit

